home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / leds.zip / MAIN.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-06  |  2KB  |  96 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, Leds;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     Button1: TButton;
  12.     Timer1: TTimer;
  13.     Panel1: TPanel;
  14.     Button3: TButton;
  15.     Button4: TButton;
  16.     Button2: TButton;
  17.     LED1: TLEDDigit;
  18.     LED2: TLEDDigit;
  19.     LED3: TLEDDigit;
  20.     LED4: TLEDDigit;
  21.     LED5: TLEDDigit;
  22.     LED6: TLEDDigit;
  23.     LED7: TLEDDigit;
  24.     Colon1: TLEDDigit;
  25.     Colon2: TLEDDigit;
  26.     Stop1: TLEDDigit;
  27.     Label1: TLabel;
  28.     Panel2: TPanel;
  29.     ss: TLEDDigit;
  30.     ss2: TLEDDigit;
  31.     mm: TLEDDigit;
  32.     mm2: TLEDDigit;
  33.     hh: TLEDDigit;
  34.     hh2: TLEDDigit;
  35.     LEDDigit8: TLEDDigit;
  36.     LEDDigit9: TLEDDigit;
  37.     Label2: TLabel;
  38.     Timer2: TTimer;
  39.     Label3: TLabel;
  40.     procedure Timer1Timer(Sender: TObject);
  41.     procedure Button1Click(Sender: TObject);
  42.     procedure Button3Click(Sender: TObject);
  43.     procedure Button2Click(Sender: TObject);
  44.     procedure Button4Click(Sender: TObject);
  45.     procedure Timer2Timer(Sender: TObject);
  46.     
  47.   end;
  48.  
  49. var
  50.   MainForm: TMainForm;
  51.  
  52. implementation
  53.  
  54. {$R *.DFM}
  55.  
  56. procedure TMainForm.Timer1Timer(Sender: TObject);
  57. begin
  58.     LED7.Increment;
  59. end;
  60.  
  61. procedure TMainForm.Button1Click(Sender: TObject);
  62. begin
  63.     Timer1.Enabled := true;
  64.     Button1.Enabled := False;
  65.     Button3.Enabled := True;
  66. end;
  67.  
  68. procedure TMainForm.Button3Click(Sender: TObject);
  69. begin
  70.     Timer1.Enabled := False;
  71.     Button1.Enabled := True;
  72.     Button3.Enabled := False;
  73. end;
  74.  
  75. procedure TMainForm.Button2Click(Sender: TObject);
  76. begin
  77.     Close;
  78. end;
  79.  
  80. procedure TMainForm.Button4Click(Sender: TObject);
  81. begin
  82.     Led7.Value := 0;
  83. end;
  84.  
  85. procedure TMainForm.Timer2Timer(Sender: TObject);
  86. var
  87.     h, m, s, x: word;
  88. begin
  89.     DecodeTime(Now,h,m,s,x);
  90.     ss.Value := s;
  91.     mm.Value := m;
  92.     hh.Value := h;
  93. end;
  94.  
  95. end.
  96.